home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Media / SampApps / AdvWorks / AWVB5Demo.EXE / AWAuth_Form1.Frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-05  |  2.5 KB  |  79 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Test Payment"
  4.    ClientHeight    =   2160
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   5340
  8.    LinkTopic       =   "Form1"
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   2160
  11.    ScaleWidth      =   5340
  12.    WhatsThisHelp   =   -1  'True
  13.    Begin VB.TextBox Text1 
  14.       Height          =   495
  15.       Left            =   240
  16.       TabIndex        =   5
  17.       Top             =   1440
  18.       Width           =   4935
  19.    End
  20.    Begin VB.TextBox txtOrderCount 
  21.       Enabled         =   0   'False
  22.       Height          =   375
  23.       Left            =   2880
  24.       TabIndex        =   2
  25.       Text            =   "0"
  26.       Top             =   120
  27.       Width           =   375
  28.    End
  29.    Begin VB.TextBox txtNumOrders 
  30.       Height          =   375
  31.       Left            =   3600
  32.       TabIndex        =   1
  33.       Text            =   "1"
  34.       Top             =   120
  35.       Width           =   375
  36.    End
  37.    Begin VB.CommandButton Command1 
  38.       Caption         =   "Test Payment Authorization"
  39.       Height          =   495
  40.       Left            =   1560
  41.       TabIndex        =   0
  42.       Top             =   720
  43.       Width           =   2175
  44.    End
  45.    Begin VB.Label Label13 
  46.       Caption         =   "of"
  47.       Height          =   375
  48.       Left            =   3360
  49.       TabIndex        =   4
  50.       Top             =   120
  51.       Width           =   375
  52.    End
  53.    Begin VB.Label Label12 
  54.       Alignment       =   1  'Right Justify
  55.       Caption         =   "# of times to post payment"
  56.       Height          =   375
  57.       Left            =   1200
  58.       TabIndex        =   3
  59.       Top             =   120
  60.       Width           =   1575
  61.    End
  62. Attribute VB_Name = "Form1"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  67. Private Sub Command1_Click()
  68. Dim objPaymentAuthorization As AWAuthorize.AuthorizePayment
  69. Dim i As Integer
  70. txtOrderCount.Text = 0
  71. For i = 1 To txtNumOrders.Text
  72.     Set objPaymentAuthorization = CreateObject("AWAuthorize.AuthorizePayment")
  73.     lngAuthorization = objPaymentAuthorization.AuthorizePayment(1, "33333333333333", "Tracey Trewin", 500.25, 6 / 30 / 97)
  74.     Text1.Text = "Authorization Number is: " & lngAuthorization
  75.     txtOrderCount.Text = txtOrderCount.Text + 1
  76.     Form1.Refresh
  77.     Set objPaymentAuthorization = Nothing
  78. End Sub
  79.